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Sa ee ROEMER 


PROGRAH WES CESENEL ED USING THE POBA11 MAINOEC SYSHRC 


SWITCH 


i ee 
SUAVE Toe 


200 = FORMAT DISK AND CHECK HEADERS 

204 = CHECK HEADERS ONLY 

210 = FORMAT AND CHECK THE SPECIFIED HEADER 

214 = FORMAT AND CHECK HEADERS IN THE OPERATOR SPECIFIED SEQUENC 
220 = CHANGE THE RPLIE BUS ADDRESS, VECTOR ADORESS, AND PRIORITY 
INITIAL OF THE STACK POINTER ### 1100 #88 

MISCELLANEOUS DEFINITIONS 

GENERAL PURPOSE REGISTER DEFINITIONS 

PRIORITY LEVEL DEFINITIONS 

“SWITCH REGISTER” SWITCH DEFINITIONS 

DATA BIT DEFINITIONS (GITOO TO BIT1S) 

BASIC “CPU” TRAP VECTOR 

furs Hs CECA WARIOUS COMMON STORAGE LOCATIONS 
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960 TES ROUTINE HEL INPUT A SINGLE CHARACTER FROM THE TTY 


RETURN HERE ti Gienecten 1S On Tre stack 


. ;;HITH PARITY BIT STRIPPED OFF 
984 Es ROUTINE WILL INPUT A STRING FROM THE TTY 


Ril vex oes Olen omen am, 


1053 Dus BOUTS a ero AN OCTAL (eset) NUMBER FROM THE TTY AND 
ie Bee Ds 
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see TS 
1178 § THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIG 
1179 OCTAL (ASCII) AND TYPE IT. 
TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 
MOV NUM, -(SP) ssRPBER TO, Oe Tee 
*CALL FOR OUT 
N Laka ielyreteeny 
ING ZEROS 
LEADING ZER 
“Lee mtbliieten peng: 
. - NUM, =(SP) ;;NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 
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SDPOC=—ENTER HERE FOR TYPEOUT OF A 16 BST MESER 


MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
TYPOC 3;CALL FOR TYPEOUT 
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cdi DISK PACK FORMATTER 


#PROGRAM BY C. HESS/F. ROEMER 


#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
SPRCKRGE (MAINDEC-11-DZ@QAC-C1), MAR 24, 1976. 


te SUITCH USE 

i 15 t 

3% 14 

is 13 NHIBIT TYPEOUTS 

ie 3 NHIBIT DRIVe STATUS TABLE PRINTOUT 


000000 20 
a UE LOU Fa tee RSME ag T 
ni : ON, CONTAINS B10 CATCH I Y LOADED VECTORS 
000174 Godoo0 ISPREG: .WORD O ;;SOFTWARE DISPLAY REGISTER 
100176 G: .WORD O 3;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING 
-=200 
: FORMAT DISK AND CHECK HEADERS 
000200 000137 001304 FEO eT Oe eSTARTI 
;#204 cK ONLY 
g0cen4 000137 001314 REO = Oe ceSTARTS 


+4210 = FORMAT AND THE SPECIFIED HEADER 
o00210 000137 001324 HELO eT AO ATS 


;#214 = FORMAT AND IN THE TOR SPECIFI 
;#214 = yo tO Oe HEADERS OPERA ED SEQUENCE 


000137 OO1344 
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CYLA: {WORD 

cm Be Q 

MASK: “WORD 

ROTOG: ioe ; 

bean: 6 3 by 

sRELIE ADDRESSES 

RPADR: ORD 176710 SRPLIE BUS ADDRESS 
C: 254, 256 SRPLIE VECTOR ADDRESSES 

RPPRIO: .WORD  <5#3e.> ;RPLIE PRIORITY 
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33 BE EEE 
;NOTE: THE ERROR TABLE IS NOT USED IN THIS PROGRAM. 
33 
.SBTTL START OF PROGRAM 
STARTI: nov 81, OPTION sSET FORMAT AND CHECK FLAG 
START2: HOV 85 OPTION ONLY FLAG 
START3: nov #4, OPTION : T SPECIFIED SECTOR FLAG 
STARTY: fov a ION : IAL FORMAT FLAT 
STARTS: NOV 8°} BUSAOR : 

a ON : Tie One st OPTION FLAGS 
:SBLER ihe es T At. 
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;CLEAR THE SECTOR ADDRESS SEQUENCE TABLES 


te he CLRS: MOV #-30. a ; . 
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A BD oe 
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i Bree GCRO)BRRon ore NUMGER USED 
O04554 COMB L (RO) ioe ge : 
1 oo , (SP) ; RETURN 
1S: RTS sAND EXIT 
GENERATE THE SECTOR ADDRESS BUFFER 
001206 MKBUF: Hoy 8-20. Togs ; TOG R. 
MOV tg ira=pOIN T Ey a LIST 
001210 MOV 8-1 re : CTOR 
Be a ease PRE suena 
MOV (R3)4, (RS) ;WORDS=SECTOR 
1 : 
T SYES = TE POINTER 
irae gaigig : pip tee : 
fe ts FINISHED? 
| 3EXIT 
;SEEK TO THE NEXT CYLINDER 
: (RH); ATTN 
=e iM (RY) 
1S: I A ,RPDS(RY) il T FOR 
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T Tht ReoSCRAD > DONE? 
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iB sennne SROCHR: HOV {SP).~{$P) ;;PUSH_ DOWN THE PC AND 
ety menue LR TE Hoey REeoY For A CHARACTER 

ip HOV 864S, -(SP) isBUT re Pe oh arm BACK 
15] mr og 
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fee CNT ii 
nn pe ee ZS 
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1 ee ee HEEKREREREE 
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RETURN HERE Htooness Or inst RFECTER MILL BE ON THE STACK 
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os 
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33 IF <HT> 
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me psereer 
*? 
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teeaee 
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SICAL FOR TYPEQUT™ 
TVPOC=~ENTER HERE FOR TVPEOUT OF A 16 GIT MUFEER 


hoc MMTISP?—INNBER TO eg DD 
oe ie 
aa 


SSSiHe 


Ee 
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eoal t t =ta* + + +mt , 
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TO DO 


LAST DIGIT ISN'T A BLANK 
ue DIGIT 
ME Stack FOR RETURNING 
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8 
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-SBTTL SAVE AND RESTORE RO-RS ROUTINES 
33 96-96-36 48 348 Eh EEE SE 
a ; _RO-RS 
50: 3% . G 
j BUPON N FROM SSAVREG THE STACK WILL LOOK LIKE: 
: ; #TOP=—=(+16) 
TEU 
3% 
+h 
teed 
3#+] 
SSAVREG: 
oa | es 
tov '=cee) i On racK 
13) if ack 
£ 9° 
ont} ti 
tsP),-(SP) 3; pe RAIN FLOW 
eit) eve Be ca rm 
(SP) (sp) et 
sARESTORE RO-RS 
is ese 





MOV (SP)+, NTO RS 


a 3;POP STACK 
( Hi 4 
(SP) 3 
{ +B $3 
(SP)+ $3 
RTI 


NTO RY 

NT 

NT’ 

NTO R 

NT’ 
-SBTTL TRAP DECODER 


RLS ie Eien The, press I WILL 


as THEN USING THE 


oe fr bear 
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; INPUT TTY REQUESTED? 
THE REQUEST FLAG 
FOR TYPEOUT 

AL ASCII 


i 1 
; 6 at 
GET ASCIZ 


fe al 


; RP11 VECTOR 
; 2 

is 1 VECTOR ADORESS 
: PRIORITY FOR TYPEOUT 





NOTE, THIS ROUTINE DOES NOT PROTECT RO-RY 

GETAOR: pes 

oe fire RPADR, - (SP) 
wef 

pages: ee ie 
a ig 

wet mage ae 
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FA ia OSclzZ es 
Moy (SP)4,RO 
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we 

jie: a cee 
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! fre eee at 


BR 2 
5471s: ASCIZ 4) et ‘BON TR 5 ADDRESSING/<15><12) 
is G0 ASK FOR ADDRESS 


faThe TAOLE "DAVSTA' 15 LOMDED 10 REFLECT 


RPINIT: SAVREG 


s1, cial 
TTA4,RPDS(RA) * 
IT11,RPOSCRY) j 
1715, RPDS(RY) 


00000 = e Orel 
020000 : jn y! 


001172 : i ene 
NO int 


;ROUTINE TO GET THE DRIVE NUMBER 
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UNTQ: ae ND he 
Me 


SeTERtINE ATTENTION BIT 
ROTATION 


Hee OF ROTATES 
: ATTENTION BIT 


: BIT 


Feit wah 


vie 


FOR RPO3 


; CTED UNIT READY NOT SET 
UNTIL FIXED 


sPRINT | OF SPACES 
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L 
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IT11,RPOS(RY) SSEEK INCOMPLETE? 


(SP)+ s RESTORE TACK POINTER 
: peti wesoro + CoE UNDERWAY? 
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hi 


Q 
hanes ; 
3: ITB »RPOS+1(R4) SRY ERRORS? 
] 'ps 
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8377, RPOS(RA) i CLERR ATTN BITS 


a it hana 
our: fy tae iPetou head. aro 
me 


a SECR ;FETCH SECTOR READ 


#1017,SECR 
tea 
a 31S CYL® OK? 


, HEDR 1S TRACKS OK 
il SECTOR 8 OK? 
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“1 3G 
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LO3 
MACYLL 27(732) O1-NOV-76 16:04 PAGE 38 


te ewr DIGIT 
3100 MANY? 
{NO = MASK IT 


t 
* SHIFT 
WORK REGISTER 


3S: 
: A TER FROM THE KEYBOARD AND RETURN WITH 
— fe CHARACTER IN RO” 


RIN: ;READ THE 


Moy (SP14,RO THE CHARACTER IN RO 
Rts pct RETURN 


; GENERA ATTENTION BIT FOR THE DRIVE NUMBER 
; "ho ts PREL WITH BIT 0, RETURN WITH ATTN BIT IN RO. 


Ms EG I Ba 
“fe Bee 
TS 


2s: b8 ; CONTINUE 


;EXIT 
;PROCESS THE ERROR CALL 


70634 SERROR: BIT 10, SUR RING THE BELL? 
; ig’ verancy iF NG 
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r= Pm = bs Be 2 Bae Ph fe Pe — ne Pe Gm PH 
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t yu 
Se : 


BIT —aBITO2, (RS) 
if rath is 
fe 
if Sythe 
we f01, is) ; 


PC, DATYPE 
y 

S(RY) ;WAIT FOR DONE 

I HIS, 2508 sHALT ON ERROR? 


a aT ae ae 


; TYPE GOOD/BAD DATA 
GBTYPE: TYPE 
MOV 


fc FE RENE R 


Sitges 


Fa nE 


eo? ’ 
asob-(SP) : wer ON THE STACK 


PUT 
sve tt ’ 


BaD =(SP) 3PUT IT ON THE STACK 
PC EXT 
;TYPE THE CONTENTS OF *RPCS’ 
CSTYPE: ; STATUS’ 
hove APCSTRY), -(SP) :PUT ON THE STACK 


RTS PC sEXI 
sTYPE THE DATA 


DATYPE: TYPE , DANS : DATAS! 
‘nov’ bata, (SP) , SPUT DATA ON THE STACK 


TYPOC : IT 
RTS = PC Ma 
TYPE THE ERROR REGISTER (RPER) 


; SR fpr sy 9 OD 0 cB 6 6 Gc ¢ 


BS 


0.00000 
p~—t—4 

se 

Py 


Si Sounine 


no Ge 
Eg E 


ERTYPE: *RPER=’ 
nov APERTRY),-(SP) Spur RER ON THE STACK 
RTS = PC 7EXIT 

;TYPE THE ORIVE STATUS REGISTR (RPDS) 
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1 

1é 
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foo gree 
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00012 
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RTS PC ext 
sTYPE THE DISK ADDRESS 
: BIT ITO0,RPER(RY) ; SS ERROR? 
zie Bre : oe WORK ; TELYINDER ADDRESS 
HOV (RS) WORKS ET HEAD AND SECTOR ADDRESS 
1S: MOV (RY) , WORK 
MOV —« RPDACRY) - WORK2 
{Bienes 
Q ctk 
: Tl 
DECTK: BiB WORK2+1 
a. cty 
ES the 
DECCY: i: 2 1011. wore 
ADT Oe We me CARS’ 
: ~($P) tweuT CAR ON THE STACK 
Bic 8tC37?, (SP) “ 
type” , TAMS >? TRS? 
CLR (SP) sCLERR TACK 
MOVB WORKE+! (SP) 3PUT THE ON THE STACK 
te atc37, (SP) : “1 
tp 
{{Sp) . 
nove ra ) SCOT THe SECTOR ADDRESS ON THE STACK 
Bic 81C17, (SP) . 
RTS = PC Ott 
TYPE THE HEADER CONTENTS 
HDTYPE: ‘are 
8 


ae ae a 


: CYL FOR 
EO FYPES-OSTAL. ASCTICALL DIGITS) 
FOR TYPE 

+ FYPES-OSTAL, RECTICALL DIGITS) 


SRT VPES-OCTAL ASCHT CALL DIGITS) 


i 
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Gs 
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2 
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YLR, -(SP) 
HeDR, (SP) 


&Fep, -«sp) 


$180 Wer-coctee. RSCICALL DIGITS) 
SFB’ Weemvocthe. RSCIICALL DIGITS) 


33 CR FOR TYPEOUT 
35 ~-OCTAL ASCII(ALL DIGITS) 


SCHARACTER STORAGE AND TERMINATOR 


;TYPE THE MESSAGE WHOSE ADDRESS IS IN RO 


TYPOUT: MOV 


wm 2, 
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;CLEAR THE CONTROLLER 


aa 
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-SBTTL TELETYPE MESSAGES 
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tet 
: 
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-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIT 


€15>¢12>/1: 
€15><12)72: 
€15)< 12973: 
415><12>4: 
€15><12>/8: 
¢15><12>/6: 
€15><129/7: 
¢15><12)/8: 
<15)<12>79: 
¢15><¢12><12>/SET THE FORMAT ENABLE SWITCH./ 


ne ie Se Se oe OR oe 


¢15)<12>/SET THE RP11 WRITE ENABLE SWITCH. / 


¢15><12>/SET THE SELECTED UNIT WRITE ENABLE SWITCH./ 


¢15><12)>/STRIKE ANY TELETYPE KEY WHEN READY. 7<«15><12> 
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fonee ora TeLETYeE™ cham meCY11 27(732) Por. 16:04 PAGE 43 


eASCIZ <15><12)/STRIKE ANY TELETYPE KEY WHEN READY. /<15><12) 


eASCIZ §¢15><12>7 CYLINDER TRACK SECTOR/ 


. 4/ 
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-ASCIZ / TAR / 

4 SAR= / 
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eASCIZ = ¢15)<412>¢12>/TEST COMPLETE/<15)< 32> 
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